;10102;0c;; Mode: LISP; Syntax: Common-lisp; Package: aklemme
;; Names: Ardell Klemme, Bruce Ho, Jimmy Cumming         Date: 11/05/12
;; Course: ICS 313   Assignment: 6
;; File: starship-engineer.lisp
;JC adding this comment for subversion testing.
; AK: Load dependency files
(load "macros.lisp")
(load "repl.lisp")
(load "object-location-path")
(load "actions.lisp")

; AK: action function - print available commands
(defun actions ()
  `(you can use one of the following commands- ,@*allowed-commands*))

(defun help()
  (cond ((have 'sexy-shades)
         (format t "You seem to have the pre-requisite sexy-shades. Lets continue.~%")
	 (format t "Well it seems that our warp core is collapsing. With all your training this should be an easy fix.~%")
	 (format t "We're obviously going to need to construct a replacement meta-phasic-trans-inducer-array.~%")
	 (format t "What? You don't remember what we need? ~%~%")
	 (format t "-Well we OBVIOUSLY need a container of some sort. Do you have one yet?~%")
	 (format t "-Don't you have something to flip the anti-electrons on and off yet?  Gosh!~%")
	 (format t "-The material is going to be stripped of electrons and must be channeled DO you have such a channel?~%")
	 (format t "-And don't forget something to power it. Hurry up.~%")t)
        (`(Sorry sexy shades required. Go back to where you started.))))      

(defun h()
(help))
;JC
;this prevents Allegro from chopping off messages                              
;printed by our text adventure game      
;(setf tpl:*print-length* nil)




(princ " Welcome to Starship-Engineer. the game of YOUR future. You are a brave intersteller spaceship captain. There has been an emergency and you must restore your ship to order. The collapse of the warp core has knocked your sexy shades to the ground. Good luck Captain. Please take a \"look\" around before you get going!")
(terpri)
(terpri)
(game-repl)
